Option Strict On
Option Explicit On
Friend Class clsTurno
	Implements _IEntidad
	
	Private MyOID As clsOID
	Private MyTurnoInicio As Date
	Private MyTurnoFin As Date
	Private MyDisponible As Boolean
	Private MyConfirmado As Boolean
	Private MyUrgencia As Boolean
	Private MyPaciente As clsPaciente
	Private MyPrestacion As clsPrestacion
	Private MyImporteCobrado As Double
	Private MyCodHorario As String
	Private MyObservacion As String
	
	Public Sub Constructor(ByRef MyClave As String)
		MyOID = NewOID(MyClave, tipoTURNO)
	End Sub
	
	
	Private Property IEntidad_OID() As clsOID Implements _IEntidad.OID
		Get
            Return MyOID
		End Get
		Set(ByVal Value As clsOID)
			MyOID = Value
		End Set
	End Property
	
	
	Public Property TurnoInicio() As Date
		Get
            Return MyTurnoInicio
		End Get
		Set(ByVal Value As Date)
			MyTurnoInicio = Value
		End Set
	End Property
	
	'##ModelId=4617F15B03BD
	Public Property TurnoFin() As Date
		Get
            Return MyTurnoFin
		End Get
		Set(ByVal Value As Date)
			MyTurnoFin = Value
		End Set
	End Property
	
	'##ModelId=463F88DB01E9
	
	'##ModelId=463F88DB01DA
	Public Property Disponible() As Boolean
		Get
            Return MyDisponible
		End Get
		Set(ByVal Value As Boolean)
			MyDisponible = Value
		End Set
	End Property
	
	'##ModelId=463F88DB0204
	
	'##ModelId=463F88DB01F8
	Public Property Confirmado() As Boolean
		Get
            Return MyConfirmado
		End Get
		Set(ByVal Value As Boolean)
			MyConfirmado = Value
		End Set
	End Property
	
	'##ModelId=463F88DB0233
	
	'##ModelId=463F88DB0213
	Public Property Urgencia() As Boolean
		Get
            Return MyUrgencia
		End Get
		Set(ByVal Value As Boolean)
			MyUrgencia = Value
		End Set
	End Property
	
	'##ModelId=463F88DB0251
	
	'##ModelId=463F88DB0242
	Public Property Paciente() As clsPaciente
		Get
            Return MyPaciente
		End Get
		Set(ByVal Value As clsPaciente)
			MyPaciente = Value
		End Set
	End Property
	
	'##ModelId=463F88DB0263
	
	'##ModelId=463F88DB0256
	Public Property Prestacion() As clsPrestacion
		Get
            Return MyPrestacion
		End Get
		Set(ByVal Value As clsPrestacion)
			MyPrestacion = Value
		End Set
	End Property
	
	
	Public Property ImporteCobrado() As Double
		Get
            Return MyImporteCobrado
		End Get
		Set(ByVal Value As Double)
			MyImporteCobrado = Value
		End Set
	End Property
	
	
	Public Property CodHorario() As String
		Get
            Return MyCodHorario
		End Get
		Set(ByVal Value As String)
			MyCodHorario = Value
		End Set
	End Property
	
	
	Public Property Observacion() As String
		Get
            Return MyObservacion
		End Get
		Set(ByVal Value As String)
			MyObservacion = Value
		End Set
	End Property
End Class